home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Games: 500 MB Amiga Software
/
500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso
/
userbox
/
demoversionen
/
pmbs-demo
/
install_prometheus
next >
Wrap
Text File
|
1994-09-01
|
2KB
|
109 lines
; Installer Script für PROMETHEUS
(user 2)
(set MainPath "PROMETHEUS:")
(set SourcePath "PROMETHEUS")
(set destpath
(askdir
(prompt "Wo soll das Prometheus-Verzeichnis erzeugt werden?")
(help "In dem gewählten Directory wird Prometheus installiert")
(default "work:")
)
)
(set @default-dest
(tackon destpath "Prometheus")
)
(set result
(makedir @default-dest
(prompt "Lege Prometheus Directory an")
(infos)
(safe)
)
)
(set result
(copyfiles
(prompt "Kopiere alle Libraries")
(help "Kopiere die Prometheus Libraries")
(source "libs/")
(dest "libs:")
(all)
(infos)
(optional fail)
(safe)
)
)
(set result
(copyfiles
(prompt "Kopiere alle Befehle")
(help "Kopiere die Prometheus Befehle")
(source "c/")
(dest "c:")
(all)
(infos)
(optional fail)
(safe)
)
)
(set result
(copyfiles
(prompt "Kopiere alle Devices")
(help "Kopiere die Prometheus Devices")
(source "devs/")
(dest "devs:")
(all)
(infos)
(optional fail)
(safe)
)
)
(set result
(copyfiles
(prompt "Kopiere das L Directory")
(help "Kopiere das L Directory")
(source "l/")
(dest "l:")
(all)
(infos)
(optional fail)
(safe)
)
)
(set result
(copyfiles
(prompt "Kopiere das S Directory")
(help "Kopiere das S Directory")
(source "s/")
(dest "s:")
(all)
(infos)
(optional fail)
(safe)
)
)
(set result
(copyfiles
(prompt "Kopiere den Prometheuspfad")
(help "Kopiere den Prometheuspfad")
(source "prometheus/")
(dest @default-dest)
(all)
(infos)
(optional fail)
(safe)
)
)
(set forstartup ("assign prometheus: \"%s\"" @default-dest))
(set result
(startup "Prometheus-Hauptprogramm"
(prompt "Es wird das Prometheus-Assign in Ihre User-Startup eingefügt")
(help "Das Assign wird von Prometheus benötigt, um die nötigen Datenfiles zu finden")
(command forstartup)
)
)
(makeassign "prometheus" @default-dest)